1	userdict /AMISAVE save put initgraphics userdict begin
2	/showpage {} def
3	translate
4	div
5	scale
6	0.0025 dup scale
7	moveto
8	lineto
9	closepath clip newpath
10	end clear userdict /AMISAVE get restore